home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 December / PCWorld_2007-12_cd.bin / v cisle / steadystate / SteadyState_Setup_ENU.exe / sctmcafeevirusupdate.vbs < prev    next >
Encoding:
Text File  |  2007-05-07  |  1.2 KB  |  39 lines
  1. ' *** 
  2. ' *** ------------------------------------------------------------------------------
  3. ' *** Filename:        SCTMcAfeeVirusUpdate.vbs
  4. ' *** ------------------------------------------------------------------------------
  5. ' *** Description:    McAfee Virus Signature Update for VirusScan
  6. ' *** ------------------------------------------------------------------------------
  7. ' *** Version:        1.1
  8. ' *** Notes:        Used by Windows Disk Protection
  9. ' *** ------------------------------------------------------------------------------
  10. ' *** Copyright (C) Microsoft Corporation 2007, All Rights Reserved
  11. ' *** ------------------------------------------------------------------------------
  12. ' *** 
  13.  
  14. ' ~~~ 
  15. ' ~~~ Force variables to be declared 
  16. ' ~~~ 
  17. Option Explicit
  18.  
  19. ' ~~~ 
  20. ' ~~~ Turn on error handling
  21. ' ~~~ 
  22. On Error Resume Next
  23.  
  24. ' ~~~ 
  25. ' ~~~ Declare global variables
  26. ' ~~~ 
  27. Dim sMcAfeePath, oShell
  28.  
  29. ' ~~~ Create objects
  30. Set oShell = CreateObject("WScript.Shell")
  31.  
  32. ' ~~~ Set application path
  33. sMcAfeePath = oShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\McAfee.com\Agent\Install Dir")
  34.  
  35. ' ~~~ Download Virus Signature
  36. call oShell.Run(chr(34) & sMcAfeePath & "\mcupdate.exe" & chr(34) & " /Schedule", 0, True)
  37.  
  38. ' ~~~ Wait 5 minutes
  39. WScript.Sleep (300000)